object frmSelPresup: TfrmSelPresup
  Left = 281
  Top = 236
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Seleccionar Presupuesto'
  ClientHeight = 434
  ClientWidth = 515
  Color = clBtnFace
  TransparentColorValue = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 515
    Height = 434
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 13555670
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 82
      Top = 4
      Width = 120
      Height = 13
      Caption = 'Tipolog'#237'as de Obras:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 126
      Width = 81
      Height = 13
      Caption = 'Presupuestos:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 18
      Top = 56
      Width = 18
      Height = 13
      Caption = 'ID:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel2: TPanel
      Left = 326
      Top = 384
      Width = 178
      Height = 41
      Color = 11580341
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object BitBtn2: TBitBtn
        Left = 88
        Top = 8
        Width = 80
        Height = 25
        Caption = 'Cancelar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Kind = bkCancel
      end
      object BitBtn1: TBitBtn
        Left = 7
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Aceptar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Kind = bkOK
      end
    end
    object Panel71: TPanel
      Left = 10
      Top = 384
      Width = 223
      Height = 41
      Color = 11580341
      TabOrder = 1
      object Label12: TLabel
        Left = 8
        Top = 16
        Width = 37
        Height = 13
        Caption = 'Filtrar:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object edtFiltro: TEdit
        Left = 47
        Top = 8
        Width = 138
        Height = 25
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnChange = edtFiltroChange
      end
      object btnDesfiltrar: TBitBtn
        Left = 189
        Top = 8
        Width = 26
        Height = 25
        Hint = 'Desfiltrar'
        Cancel = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = btnDesfiltrarClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333FFFFF333333000033333388888833333333333F888888FFF333
          000033338811111188333333338833FFF388FF33000033381119999111833333
          38F338888F338FF30000339119933331111833338F388333383338F300003391
          13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
          33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
          33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
          000039183811193333918338F8F833F83333838F000039118111933339118338
          F3833F83333833830000339111193333391833338F33F8333FF838F300003391
          11833338111833338F338FFFF883F83300003339111888811183333338FF3888
          83FF83330000333399111111993333333388FFFFFF8833330000333333999999
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
        Spacing = 2
      end
    end
    object rdg: TRadioGroup
      Left = 16
      Top = 90
      Width = 481
      Height = 33
      Color = 13555670
      Columns = 4
      ItemIndex = 3
      Items.Strings = (
        'Todos'
        'Sin Aprobar'
        'Aprobados'
        'Sin Terminar')
      ParentColor = False
      TabOrder = 2
      OnClick = rdgClick
    end
    object grdPresup: TRxDBGrid
      Left = 10
      Top = 142
      Width = 496
      Height = 235
      DataSource = sPresup
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = grdPresupDblClick
      OnTitleClick = grdPresupTitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'ID_PRESUPUESTO'
          Title.Alignment = taCenter
          Title.Caption = 'ID'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DENOMINACION'
          Title.Alignment = taCenter
          Title.Caption = 'Denominaci'#243'n'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 252
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DIRECCION'
          Title.Alignment = taCenter
          Title.Caption = 'Direcci'#243'n'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 141
          Visible = True
        end>
    end
    object grdTipologia: TRxDBGrid
      Left = 84
      Top = 20
      Width = 336
      Height = 72
      DataSource = sTipologia
      TabOrder = 4
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'TIPOLOGIA'
          Title.Alignment = taCenter
          Title.Caption = 'Tipolog'#237'a'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 291
          Visible = True
        end>
    end
    object id: TEdit
      Left = 16
      Top = 72
      Width = 57
      Height = 21
      TabOrder = 5
    end
  end
  object sPresup: TDataSource
    DataSet = Datos.qryVar5
    Left = 16
    Top = 272
  end
  object sTipologia: TDataSource
    DataSet = Datos.cTipologia
    OnDataChange = sTipologiaDataChange
    Left = 16
    Top = 240
  end
end
